home *** CD-ROM | disk | FTP | other *** search
- ///////////////////////////////////////////////////////////////////////////////
- //
- // SFNET.SLT ... SPITFIRE SFNET Upload/Download Script
- //
- // Although there's a lot of comments to this, compiled it still only
- // takes up just over 1K. So try not to change or remove anything not
- // documented, in order to prevent possible errors. The "//" are
- // especially important, don't remove them unless you remove the
- // entire line AND ONLY THEN WITH CARE.
- //
- // Your personal data must be entered in areas marked with
- // ** in the comment fields. Make sure you keep your
- // data between the quotation marks.
- //
- // ***** You MUST enter your BIRTH DATE in the TELIX
- // ***** BBS dir as a password i.e mmddyy, just numbers
- // no hypens or quotes. Trust me on this one.
- //
- // ** This script will *only* work with ZMODEM and Spitfire as a HUB
- //
- // If you follow the comments exactly you should have no problems
- //
- // AFTER ALL CHANGES ARE MADE COMPILE USING "CS SFNET"
- //
- //
- // Originally written by Dan South, AUG 1990
- ///////////////////////////////////////////////////////////////////////////////
-
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Here is where your own information goes. Some data will need to be changed
- // in the MAIN part of the Script, follow the comments exactly and you'll be
- // just fine
- ///////////////////////////////////////////////////////////////////////////////
-
- ////////////////////////////////////
- //////////
- str user_name[] = "A0515000^M^MJACQUE_SHIPLEY", // ** ENTER your name;password
- ///////// You must use your password -
- // name as shown for this to work
- //
- //
- //
- dial_str[]="27", // ** ENTER the Telix Dialing Directory
- // number of the BBS to call
- //
- graph_str[]="N"; // ** CHANGE to "y" if you want Graphics
- //
- //
- int d = 1, // ** CHANGEABLE delay time to answer
- // the SPITFIRE prompt. Range from
- // 1 to 30, 10 = 1 second. This works
- // well, so change it only if you
- // must.
- //
- e = 9600; // ** CHANGEABLE time the script will
- // wait while in the Hub's Relay
- // door for your packet to be
- // assembled after you upload
- // your.rly file. 10 = 1 sec.
- //
- str capfilename[] = "c:\telix\mail.cap"; // Screen capture of mail run
- // can be used for debugging or keeping
- // record of activity - comment out if
- // you do not wish to use this feature
- ///////////////////////////////////////////
-
- ///////////////////////////////////////////////////////////////////////////////
- //
- // Read the comments and enter the changes exactly as described. Otherwise
- // unpredictable results may occur.
- ///////////////////////////////////////////////////////////////////////////////
- //
- //
- ///////////////////////////////////////////////////////////////////////////////
- //
- // This is the main body of the script.
- //
- ///////////////////////////////////////////////////////////////////////////////
- //
- main() //
- {
-
- slug(); // call function slug()
- //
- int tmark; //
- // ************************************
- ///////////////////////////////////////// DON'T CHANGE ANYTHING BUT THE NUMBER
- // ************************************
- dial(dial_str, 100, 1); // ** dial the BBS X number of attempts
- // Change this ^ to desired redial attempts, The number of tries is determined
- ///////////////////////////////////////// by the first number. (currently 100)
- // by setting to 0 it will redial
- // until connected
- if (!carrier()) // -> Shut Down the Script/Telix
- { /////// If no connection after X Redial
- clear_scr(); //// Attempts
- pstraxy("Log-on Failed!", 28, 4, 750); //
- pstraxy("Returning Control back to Spitfire in 5 . 4 . 3 . 2 . 1", 10, 5, 750); //
- delay(50); //
- timer_free(tmark); // free timer channel
- track_free(0); // and all track channels
- hangup(); //
- exittelix(1,1); // The Script Continues
- } // If connection is made before end
- // of redial setting is reached
- //
- int cst;
- cst = capture_stat (); // check capture status
-
- if (cst == 1) // close capture if open
- {
- capture("*CLOSE*");
- }
- capture(capfilename);
-
- int stat; // set up a bunch of variables
- int t1, //
- t2, //
- t3, //
- t4, //
- t5, //
- t6; //
- //
- t1 = track("GRAPHICS?", 0); // define the variables
- t2 = track("first name", 0); //
- t3 = track("birth date", 0); //////
- t4 = track("< ENTER >", 0); //
- t5 = track("stati", 0); //
- t6 = track("ENTER COMMAND", 0); //
- tmark = timer_start(1800); // wait up to 3 minutes
- // before hanging up if no
- // activity is detected
- //
- //
- while (not time_up(tmark)) // as long as things are happening
- // and time is not up
- { //
- terminal(); // let Telix process any chars and keys
- //
- //
- stat = track_hit(0); // see which (if any) track was hit
- //
- if (stat == t1) // say whether we want graphics
- { //
- delay(d); //
- cputs(graph_str); // send answer
- } //
- else if (stat == t2) // send name
- { //
- track_free(t1); // free the track, we won't
- // need it again
- delay(d); //
- cputs(user_name); //
- cputs("^M"); //
- } //
- else if (stat == t3) // send second password - birth date
- { // you remembered right?
- track_free(t2); // free the track, we won't
- // need it again
- delay(d); //
- cputs(_entry_pass); // uses the birth date from the
- // dialing directory password entry
- } //
- else if (stat == t4) // Moving along....
- { //
- delay(d); //
- cputs("^M"); //
- } //
- else if (stat == t5) // "No" Message checking, we'll most
- { // likely get em anyway in the D/L
- delay(d); //
- cputs("N^M"); //
- } //
- else if (stat == t6) //
- { //
- delay(d); // Select A from the SF Menu extension
- cputs("A^M"); // to receive packet
- Delay(10); //
- receive('Z',"A0515000.QWK"); // ** Change to reflect the Hub ID
- waitfor ("A B Q G",e); // packet name of your Hub
- cputs("B^M"); // Select B from the SF Menu extension
- delay(d); // to upload reply packet
- send('Z',"A0515000.REP"); // ** Change so the REP packet has
- // delay(20); // the HUB ID of your hub
- waitfor ("A B Q G",e); //
- cputs("G^M"); // All done...say Goodbye
- waitfor ("Are you",1); //
- cputs("Y",0); //
- capture( "*CLOSE*" ); // Close capture file
- hangup(); //
- exittelix(1,1); // Exit Telix
- } // * END OF CHANGES TO MAKE *
- } //
- if (time_up(1)) //
- { //
- clear_scr(); //
- pstraxy("Log-on Failed!", 28, 4, 700); //
- pstraxy("Returning Control back to Spitfire in 5 . 4 . 3 2 . 1", 10, 5, 700); timer_free(tmark); // free timer channel
- track_free(0); // and all track channels
- hangup(); //
- exittelix(1,1); //
- } //
- } //
- //
- ///////////////////////////////////////////////////////////////////////////////
-
- ///////////////////////////////////////////////////////////////////////////////
- // Function slug.
- ///////////////////////////////////////////////////////////////////////////////
-
- slug() // function slug
- {
- prints("^M");
- prints("^M");
- prints("^M");
- prints("^M");
- clear_scr();
- pstraxy("***************************************************************", 8, 1, 27);
- pstraxy("* SFNET.SLT SPITFIRE-SFNET Upload/Download Script *", 8, 2, 27);
- pstraxy("* Original Script (SFRIME3.SLT) By Dan South *", 8, 3, 27);
- pstraxy("* Modified For SFNET By Jacque Shipley *", 8, 4, 27);
- pstraxy("***************************************************************", 8, 5, 27);
- prints("^M");
- return;
- }
-
- ///////////////////////////////////////////////////////////////////////////////
- ///////////////////////////////////////////////////////////////////////////////